home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / CD / main.dxr / 00038_eye ball.ls < prev    next >
Encoding:
Text File  |  2005-05-13  |  421 b   |  20 lines
  1. property spriteNum, pSpeed, ploc, pcenter
  2.  
  3. on beginSprite me
  4.   pSpeed = 1
  5.   ploc = sprite(spriteNum).loc
  6.   pcenter = sprite(spriteNum).loc
  7. end
  8.  
  9. on exitFrame me
  10.   targetLoc = pcenter + (the mouseLoc - pcenter)
  11.   if me.distance(pcenter, ploc) < 30 then
  12.     sprite(spriteNum).loc = targetLoc
  13.   end if
  14. end
  15.  
  16. on distance me, obj1, obj2
  17.   dist = sqrt(power(obj1[1] - obj2[1], 2) + power(obj1[2] - obj2[2], 2))
  18.   return dist
  19. end
  20.